<?php
//Lauri Link student 11 04.11.2011

include "eestipaev.php";
include "eestikuu.php";
function ik_kontroll($kood)
    {
        if ( !is_numeric ($kood) )
            {
                echo "Mingi jama on. Minu arvates ei ole seal ainult numbrid.";
                return ($kood);
            }
        elseif ( strlen ($kood) < 11 )
            {
                echo "Kuidagi lühike on see kood. Peaks ikka vähemalt 11 kohta kokku olema.";
                return ($kood);
            }
        else
            {
                $parts = unpack("a1sugu/a2aasta/a2kuu/a2paev/a3jrk/a1chk",$kood);
                $k1 = 1;
                $k2 = 3;
                $chk1 = $chk2 = 0;
                for ($i = 0; $i < 10; $i++)
                    {
                        $chk1 += $k1 * $kood[$i];
                        $k1 = ($k1 < 9) ? ++$k1 : 1;
                        $chk2 += $k2 * $kood[$i];
                        $k2 = ($k2 < 9) ? ++$k2 : 1;
                    }
                    $jaak = $chk1 % 11;
                    if ($jaak == 10)
                        {
                            $jaak = $chk2 % 11;
                        }
                    if ($parts["chk"] != $jaak)
                        {
                            echo "Kontrollsumma on vale, ehk siis reaalselt pole sellist koodi olemas aga noh kui Sa just tahad ... <br><br>";
                        }
                    else 
                        {
                            echo "Kontrollsumma on õige, see võiks olla reaalne kood <br><br>";
                        }
                $sobib_date = date("ymd",mktime(0,0,0,$parts["kuu"],$parts["paev"],$parts["aasta"]));
                if ( substr ($kood,1,6) != $sobib_date)
                    {
                        echo "Kuupäevaga on mingi jama.";
                        return $kood;
                    }
                switch ($parts["sugu"])
                    {
                        case 0:
                        $sugu = "";
                        $sajand = "";
                        $komm = "See on mingi jama, õige kood ei alga nulliga.";
                        break;
                        case 1:
                        $sugu = "mees";
                        $sajand = "18";
                        $komm = "";
                        break;
                        case 2:
                        $sugu = "naine";
                        $sajand = "18";
                        $komm = "";
                        break;
                        case 3:
                        $sugu = "mees";
                        $sajand = "19";
                        $komm = "";
                        break;
                        case 4:
                        $sugu = "naine";
                        $sajand = 19;
                        $komm = "";
                        break;
                        case 5:
                        $sugu = "mees";
                        $sajand = 20;
                        $komm = "";
                        break;
                        case 6:
                        $sugu = "naine";
                        $sajand = 20;
                        $komm = "";
                        break;
                        case 7:
                        $sugu = "mees";
                        $sajand = 21;
                        $komm = "Sellise koodiga tegelaste jaoks läheb veel väga pikalt aega. Ei tea kas sa neid näedki.";
                        break;
                        case 8:
                        $sugu = "naine";
                        $sajand = 21;
                        $komm = "Sellise koodiga tegelaste jaoks läheb veel väga pikalt aega. Ei tea kas sa neid näedki.";
                        break;
                        case 9:
                        $sugu = "";
                        $sajand = "";
                        $komm = "aga koodi algus on mingi jama.";
                        break;
                    }
                $kuunimi = date("F",mktime(0,0,0,$parts["kuu"],$parts["paev"],$parts["aasta"]));
                eestikuu ($kuunimi,$kuunimi);
                $paevanimi = date("l",mktime(0,0,0,$parts["kuu"],$parts["paev"],$parts["aasta"]));
                eestipaev ($paevanimi,$paevanimi);
                }
            echo $komm."<br><br>";
            echo "Selle koodi põhjal on sündimise hetk <br><br>". ($parts["paev"]).". $kuunimi  $sajand".($parts["aasta"]).".<br><br> ja ta on $sugu<br><br>";
            echo "Ning täiesti juhuslikult on see päev $paevanimi.<br><br>";
        }
?>